#!/usr/bin/perl

while ($line = <STDIN>) {

    chomp $line;

    @tok = split("\t", $line);

    if ($tok[1] =~ /^\d+(\,\d+)?(\.\d+)?$/) {
	print STDERR "$tok[1]\n";
	$tok[1] = "<num>";
    }

    $newline = join("\t", @tok);

    print "$newline\n";

}
